home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 3 / United Public Domain Gold 3.iso / games / pg401.dms / pg401.adf / StarWoids-Install < prev    next >
Text File  |  1978-02-26  |  3KB  |  140 lines
  1. ; StarWoids Install Script
  2.  
  3. (set #install-msg
  4. (cat "\nStarWoids installation script.\n"
  5.      "This script installs the demo version of StarWoids\n"
  6.      "onto your Amiga.\n"
  7.      "StarWoids © 1994 Martin Kift/Rowan Crawford\n"
  8.      "              Rob Wells\n"
  9.      "All rights reserved.\n\n"
  10.      "Proceed?"))
  11.  
  12. (set old_level @user-level)
  13. (set @default-dest "")
  14.  
  15. (set #finish-msg
  16. (cat "\n\nPlease *remove* the StarWoids floppy disks and\n"
  17.      "do a soft-reset, so the assigns added to the\n"
  18.      "user-startup file can be initialised."))
  19.  
  20.  
  21. (
  22.    ; Ask where to install it...
  23.    (set @default-dest
  24.       (askdir
  25.          (prompt "Select or create the directory where you would "
  26.                  "like to install StarWoids.")
  27.          (help "StarWoids and all necessary files will be installed "
  28.                "in the directory of your choice.  You may wish to "
  29.                "create a new directory for StarWoids by using the "
  30.                "'Make New Drawer' gadget.")
  31.          (default "dh0:")
  32.       )
  33.    )
  34.  
  35.    (working "Installing StarWoids...")
  36.  
  37.    (copyfiles
  38.       (prompt "")
  39.       (help @copyfiles-help)
  40.       (source "StarWoids1:StarWoids")
  41.       (dest @default-dest)
  42.    )
  43.  
  44.    (copyfiles
  45.       (prompt "")
  46.       (help @copyfiles-help)
  47.       (source "StarWoids1:StarWoids.info")
  48.       (dest @default-dest)
  49.    )
  50.  
  51. ;   (makedir (tackon @default-dest "data"))
  52. ;   (makedir (tackon @default-dest "data1"))
  53. ;   (makedir (tackon @default-dest "data2"))
  54.  
  55.    (copyfiles
  56.       (prompt "Copying documents")
  57.       (help @copyfiles-help)
  58.       (source "StarWoids1:Documents")
  59.       (dest (tackon @default-dest "Documents"))
  60.       (all)
  61.    )
  62.  
  63.    (copyfiles
  64.       (prompt "Copying data files")
  65.       (help @copyfiles-help)
  66.       (source "StarWoids1:data")
  67.       (dest (tackon @default-dest "data"))
  68.       (all)
  69.    )
  70.  
  71.    (copyfiles
  72.       (prompt "Copying graphics")
  73.       (help @copyfiles-help)
  74.       (source "StarWoids1:data1")
  75.       (dest (tackon @default-dest "data1"))
  76.       (all)
  77.    )
  78.  
  79.    (copyfiles
  80.       (prompt "Copying sfx")
  81.       (help @copyfiles-help)
  82.       (source "StarWoids1:data2")
  83.       (dest (tackon @default-dest "data2"))
  84.       (all)
  85.    )
  86.  
  87.    (copyfiles
  88.       (prompt "")
  89.       (help @copyfiles-help)
  90.       (source "StarWoids1:Documents.info")
  91.       (dest @default-dest)
  92.    )
  93.  
  94.    ;----------------------------------------------------------
  95.    ; Prompt for second disk.
  96.  
  97.    (askdisk
  98.       (prompt "Please insert StarWoids Disk 2 in any drive.")
  99.       (help "")
  100.       (dest "StarWoids2")
  101.    )
  102.  
  103.    (copyfiles
  104.       (prompt "Copying data files")
  105.       (help @copyfiles-help)
  106.       (source "StarWoids2:data")
  107.       (dest (tackon @default-dest "data"))
  108.       (all)
  109.    )
  110.  
  111.    (copyfiles
  112.       (prompt "Copying graphics")
  113.       (help @copyfiles-help)
  114.       (source "StarWoids2:data1")
  115.       (dest (tackon @default-dest "data1"))
  116.       (all)
  117.    )
  118.  
  119.    (copyfiles
  120.       (prompt "Copying music")
  121.       (help @copyfiles-help)
  122.       (source "StarWoids2:data2")
  123.       (dest (tackon @default-dest "data2"))
  124.       (all)
  125.    )
  126.  
  127.    ;----------------------------------------------------------
  128.    ; Finish up
  129.  
  130.    (startup "StarWoids"
  131.       (prompt "Do you want to add two StarWoids assigns to your Startup sequence?")
  132.       (help @startup-help)
  133.       (command "Assign StarWoids1: " @default-dest "\n"
  134.                "Assign StarWoids2: " @default-dest)
  135.    )
  136.  
  137.    ; show startup message
  138.    (message #finish-msg)
  139. )
  140.